home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / SoundAndMusic / cmix / lib / oscil.c < prev    next >
Encoding:
Text File  |  1989-02-25  |  203 b   |  11 lines
  1. float oscil(amp,si,farray,len,phs)
  2. float amp,si,*farray,*phs;
  3. register len;
  4. {
  5.     register i =  *phs;   
  6.     *phs += si;            
  7.     while(*phs >= len)
  8.            *phs -= len;     
  9.     return(*(farray+i) * amp);
  10. }
  11.